﻿Imports DataSet_apaTableAdapters
Imports DataSet_apa
Imports System.Data.SqlClient
Partial Class Reportes_EdicionFiltro
    Inherits System.Web.UI.Page
    Dim ponderaciones As New ponderacionesTableAdapter
    Dim categorias As New catalogo_generalDataTable
    Dim CategoriasAdap As New catalogo_generalTableAdapter
    Dim pondera As New ponderacionesDataTable
    Dim ponderaAdalp As New ponderacionesTableAdapter
    Dim genealogiaAnimal As New GenealogiaTableAdapter
    Dim iIdFiltro As New Integer ' --> Variable que obtiene el numero de filtro a editar
    Dim AdapFiltroDettalle As New filtroDetalleTableAdapter
    Dim filtroDetalle As New filtroDetalleDataTable
    Dim filtro As New filtroDataTable
    Dim AdapFiltro As New filtroTableAdapter
    Dim sSQL As String
    Dim sdsFiltro As New SqlDataSource
    Protected Sub Reportes_EdicionFiltro_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        Try
            iIdFiltro = Request.QueryString("filtro")
        Catch ex As Exception
            iIdFiltro = 0
        End Try


        If iIdFiltro = 0 Then
            pnActualizado.CssClass = "error"
            lblActualizado.Text = "Falta seleccionar filtro"
        Else
            pnActualizado.CssClass = "editado"
            lblActualizado.Text = "Filtro editado"
        End If

        categorias = CategoriasAdap.GetCatGral() ' Cargar el catalogo en memoria
        pondera = ponderaAdalp.GetPondera()
        ' pondera = ponderaAdalp.GetPondera()
        DropDLTientaEmotivaCab = fillPondera(DropDLTientaEmotivaCab, "clase")
        DropDLTientaEmotivaPie = fillPondera(DropDLTientaEmotivaPie, "clase")
        DropDLTientaCalculadaCab = fillPondera(DropDLTientaCalculadaCab, "clase")
        DropDLTientaCalculadaPie = fillPondera(DropDLTientaCalculadaPie, "clase")
        DropDLLidiaEmotivaCab = fillPondera(DropDLLidiaEmotivaCab, "clase")
        DropDLLidiaEmotivaPie = fillPondera(DropDLLidiaEmotivaPie, "clase")
        DropDLLidiaCalculadaCab = fillPondera(DropDLLidiaCalculadaCab, "clase")
        DropDLLidiaCalculadaPie = fillPondera(DropDLLidiaCalculadaPie, "clase")
        'Identificacion
        ddlHierro = fillCatalogos(ddlHierro, "H")
        'Generales
        ddlUbicacion = fillCatalogos(ddlUbicacion, "U")
        ddlPropiedad = fillCatalogos(ddlPropiedad, "P")
        ddlEncaste = fillCatalogos(ddlEncaste, "E")
        'Estatus
        ddlEstatus = fillCatalogos(ddlEstatus, "S")
        ddlCausaMuerte = fillCatalogos(ddlCausaMuerte, "F")
        'Herencia
        ' por codigo
        'Morfologia
        ddlPelaje1 = fillCatalogos(ddlPelaje1, "W")
        ddlPelaje2 = fillCatalogos(ddlPelaje2, "X")
        ddlPelaje3 = fillCatalogos(ddlPelaje3, "Y")
        ddlPelaje4 = fillCatalogos(ddlPelaje4, "Z")
        ddlLongitud = fillCatalogos(ddlLongitud, "PL")
        ddlSimetria = fillCatalogos(ddlSimetria, "PS")
        ddlPuntas = fillCatalogos(ddlPuntas, "PP")
        ddlFormas = fillCatalogos(ddlFormas, "C") 'PF piton forma "Morfologia * * "
        ddlTamaño = fillCatalogos(ddlTamaño, "HT")
        ddlHLongitud = fillCatalogos(ddlHLongitud, "HL")
        ddlAltura = fillCatalogos(ddlAltura, "HU")
        ddlAgujas = fillCatalogos(ddlAgujas, "HG")
        ddlAnchura = fillCatalogos(ddlAnchura, "HA")
        ddlLomo = fillCatalogos(ddlLomo, "HN")
        ddlCuello = fillCatalogos(ddlCuello, "HE")
        ddlCzaTam = fillCatalogos(ddlCzaTam, "HD")
        ddlCzaTipo = fillCatalogos(ddlCzaTipo, "HC")
        ddlConjunto = fillCatalogos(ddlConjunto, "HO")
        ddlTrapio = fillCatalogos(ddlTrapio, "HR")
        ddlMorrillo = fillCatalogos(ddlMorrillo, "HM")
        'Tienta
        ddlTorero = fillCatalogos(ddlTorero, "M")
        ddlPicador = fillCatalogos(ddlPicador, "I")
        ddPlaza = fillCatalogos(ddPlaza, "L")
        ddlTaCRegresa = fillPondera(ddlTaCRegresa, "REGRESA")
        ddlTaCDistancia = fillPondera(ddlTaCDistancia, "DISTANCIA")
        ddlTaCSitio = fillPondera(ddlTaCSitio, "SITIO")
        ddlTaCAprieta = fillPondera(ddlTaCAprieta, "APRIETA")
        ddlTaCFijeza = fillPondera(ddlTaCFijeza, "FIJEZA")
        ddlTaCCabeza = fillPondera(ddlTaCCabeza, "CABEZA")
        ddlTaCDefiende = fillPondera(ddlTaCDefiende, "DEFIENDE")
        ddlTaCTomoVara = fillPondera(ddlTaCTomoVara, "VARA")
        DDLTientaClase = fillPondera(DDLTientaClase, "clase")
        DDLTientaNobleza = fillPondera(DDLTientaNobleza, "clase")
        DDLTientaRaza = fillPondera(DDLTientaRaza, "clase")
        DDLTientaEmotividad = fillPondera(DDLTientaEmotividad, "clase")

        ddlTaPEmotividad = fillPondera(ddlTaPEmotividad, "mEmotividad")
        ddlTaPFijeza = fillPondera(ddlTaPFijeza, "mFijeza")
        ddlTaPRemata = fillPondera(ddlTaPRemata, "mRemata")
        ddlTaPDesarrollo = fillPondera(ddlTaPDesarrollo, "mDesarrollo")
        ddlTaPDistancia = fillPondera(ddlTaPDistancia, "mDistancia")
        ddlTaPProntitud = fillPondera(ddlTaPProntitud, "mProntitud")
        ddlTaPFuerza = fillPondera(ddlTaPFuerza, "mFuerza")
        ddlTaPEnrazado = fillPondera(ddlTaPEnrazado, "mEnrazado")
        ddlTaPFiereza = fillPondera(ddlTaPFiereza, "mFiereza")
        ddlTaPGalope = fillPondera(ddlTaPGalope, "mGalope")
        ddlmAlegria = fillPondera(ddlmAlegria, "mAlegria")
        ddlmObediente = fillPondera(ddlmObediente, "mObediente")
        ddlmGazapea = fillPondera(ddlmGazapea, "mGazapea")
        ddlTaPEscarba = fillPondera(ddlTaPEscarba, "mEscarba")
        ddlTaPQuerencia = fillPondera(ddlTaPQuerencia, "mQuerencia")
        ddlTaPBerrea = fillPondera(ddlTaPBerrea, "mBerrea")
        ddlTaPRectitud_D = fillPondera(ddlTaPRectitud_D, "mRectitud_D")
        ddlTaPRectitud_I = fillPondera(ddlTaPRectitud_I, "mRectitud_I")
        ddlTaPRepone_D = fillPondera(ddlTaPRepone_D, "mRepone_D")
        ddlTaPRepone_I = fillPondera(ddlTaPRepone_I, "mRepone_I")
        ddlTaPFinalizacion_D = fillPondera(ddlTaPFinalizacion_D, "pFinalizacion")
        ddlTaPFinalizacion_I = fillPondera(ddlTaPFinalizacion_I, "pFinalizacion")
        ddlTaPRepite_D = fillPondera(ddlTaPRepite_D, "mRepite_D")
        ddlTaPRepite_I = fillPondera(ddlTaPRepite_I, "mREpite_I")
        ddlTaPCabeza_D = fillPondera(ddlTaPCabeza_D, "pCabeza")
        ddlTaPCabeza_I = fillPondera(ddlTaPCabeza_I, "pCabeza")
        ddlTaPNobleza_D = fillPondera(ddlTaPNobleza_D, "mNobleza_D")
        ddlTaPNobleza_I = fillPondera(ddlTaPNobleza_I, "mNobleza_I")
        ddlTaPMano_D = fillPondera(ddlTaPMano_D, "pManos")
        ddlTaPMano_I = fillPondera(ddlTaPMano_I, "pManos")
        ddlTaPSon_D = fillPondera(ddlTaPSon_D, "mSon_D")
        ddlTaPSon_I = fillPondera(ddlTaPSon_I, "mSon_I")
        ddlTaPRecorrido2_D = fillPondera(ddlTaPRecorrido2_D, "pRecorrido")
        ddlTaPRecorrido2_I = fillPondera(ddlTaPRecorrido2_I, "pRecorrido")
        ddlTaPBajaCabeza = fillPondera(ddlTaPBajaCabeza, "mBajaCabeza")
        ddlTaPRajado = fillPondera(ddlTaPRajado, "mRajado")
        ddlTaPPases = fillPondera(ddlTaPPases, "mPases")
        ddlTaPCabezas = fillPondera(ddlTaPCabezas, "mCabeza")
        'Lidia
        ddlPlaza = fillCatalogos(ddlPlaza, "L")
        ddlResultado = fillCatalogos(ddlResultado, "T") ' LR Premios "Lidia"
        ddlMatador = fillCatalogos(ddlMatador, "M")
        ddlTrofeos = fillCatalogos(ddlTrofeos, "O") 'LT Trofeos "Lidia"
        ddlReconocimiento = fillCatalogos(ddlReconocimiento, "V") ' LG Reconocimiento "Lidia"
        ddlLaCRegresa = fillPondera(ddlLaCRegresa, "REGRESA")
        ddlLaCDistancia = fillPondera(ddlLaCDistancia, "DISTANCIA")
        ddlLaCSitio = fillPondera(ddlLaCSitio, "SITIO")
        ddlLaCAprieta = fillPondera(ddlLaCAprieta, "APRIETA")
        ddlLaCFijeza = fillPondera(ddlLaCFijeza, "FIJEZA")
        ddlLaCCabeza = fillPondera(ddlLaCCabeza, "CABEZA")
        ddlLaCDefine = fillPondera(ddlLaCDefine, "DEFIENDE")
        DDLLidiaClase = fillPondera(DDLLidiaClase, "clase")
        DDLLidiaNobleza = fillPondera(DDLLidiaNobleza, "clase")
        DDLLidiaRaza = fillPondera(DDLLidiaRaza, "clase")
        DDLLidiaEmotividad = fillPondera(DDLLidiaEmotividad, "clase")






        ddlLaCTomoVara = fillPondera(ddlLaCTomoVara, "VARA")
        ddlLaPEmotividad = fillPondera(ddlLaPEmotividad, "mEmotividad")
        ddlLaPFijeza = fillPondera(ddlLaPFijeza, "mFijeza")
        ddlLaPRemate = fillPondera(ddlLaPRemate, "mRemata")
        ddlLaPDesarrollo = fillPondera(ddlLaPDesarrollo, "mDesarrollo")
        ddlLaPDistancia = fillPondera(ddlLaPDistancia, "mDistancia")
        ddlLaPProntitud = fillPondera(ddlLaPProntitud, "mProntitud")
        ddlLaPFuerza = fillPondera(ddlLaPFuerza, "mFiereza")
        ddlLaPEnrazado = fillPondera(ddlLaPEnrazado, "mEnrazado")
        ddlLaPFiereza = fillPondera(ddlLaPFiereza, "mFiereza")
        ddlLaPGalope = fillPondera(ddlLaPGalope, "mGalope")
        ddlLaPAlegria = fillPondera(ddlLaPAlegria, "mAlegria")
        ddlLaPObediencia = fillPondera(ddlLaPObediencia, "mObediente")
        ddlLaPGazapea = fillPondera(ddlLaPGazapea, "mGazapea")
        ddlLaPEscarba = fillPondera(ddlLaPEscarba, "mEscarba")
        ddlLaPQuerencia = fillPondera(ddlLaPQuerencia, "mQuerencia")
        ddlLaPBerrea = fillPondera(ddlLaPBerrea, "mBerrea")
        ddlLaPRectitud_D = fillPondera(ddlLaPRectitud_D, "mRectitud_D")
        ddlLaPRectitud_I = fillPondera(ddlLaPRectitud_I, "mRectitud_I")
        ddlLaPRepone_D = fillPondera(ddlLaPRepone_D, "mRepone_D")
        ddlLaPRepone_I = fillPondera(ddlLaPRepone_I, "mRepone_I")
        ddlLaPFinalizacion_D = fillPondera(ddlLaPFinalizacion_D, "pFinalizacion")
        ddlLaPFinalizacion_I = fillPondera(ddlLaPFinalizacion_I, "pFinalizacion")
        ddlLaPRepite_D = fillPondera(ddlLaPRepite_D, "mRepite_D")
        ddlLaPRepite_I = fillPondera(ddlLaPRepite_I, "mREpite_I")
        ddlLaPCabeza_D = fillPondera(ddlLaPCabeza_D, "pCabeza")
        ddlLaPCabeza_I = fillPondera(ddlLaPCabeza_I, "pCabeza")
        ddlLaPNobleza_D = fillPondera(ddlLaPNobleza_D, "mNobleza_D")
        ddlLaPNobleza_I = fillPondera(ddlLaPNobleza_I, "mNobleza_I")
        ddlLaPManos_D = fillPondera(ddlLaPManos_D, "pManos")
        ddlLaPManos_I = fillPondera(ddlLaPManos_I, "pManos")
        ddlLaPSon_D = fillPondera(ddlLaPSon_D, "mSon_D")
        ddlLaPSon_I = fillPondera(ddlLaPSon_I, "mSon_I")
        ddlLaPRecorrido_D = fillPondera(ddlLaPRecorrido_D, "pRecorrido")
        ddlLaPRecorrido_I = fillPondera(ddlLaPRecorrido_I, "pRecorrido")
        ddlLaPBajaCabeza = fillPondera(ddlLaPBajaCabeza, "mBajaCabeza")
        ddlLaPRajado = fillPondera(ddlLaPRajado, "mRajado")
        ddlLaPases = fillPondera(ddlLaPases, "mPases")
        ddlLaPCaveza = fillPondera(ddlLaPCaveza, "mCabeza")
        'Empadres
        ddlUbicacionEmpadres = fillCatalogos(ddlUbicacionEmpadres, "U")
        'Sanidad
        ddlTiposSanidad = fillCatalogos(ddlTiposSanidad, "SA")

    End Sub
    ''' <summary>
    ''' Llena los DropDownList utilizados en la patallas a partir de la tabla
    ''' catalogos
    ''' </summary>
    ''' <param name="myDropDown">DropDownList pasado por valor</param>
    ''' <param name="Cadena">Indica la clave de la categoria</param>
    ''' <returns>Devuelve DropDownList</returns>
    ''' <remarks>Utiliza esta funcion para llenar las opciones del formulario</remarks>
    Function fillCatalogos(ByVal myDropDown As DropDownList, ByVal Cadena As String) As DropDownList
        myDropDown.DataSource = categorias.Select("cattip='" + Cadena + "'", "catnom")
        myDropDown.DataBind()
        Return myDropDown
    End Function
    ''' <summary>
    ''' Llena los DropDownList a partir de la tabla Ponderaciones
    ''' </summary>
    ''' <param name="DropDown"></param>
    ''' <param name="Cadena"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Function fillPondera(ByVal DropDown As DropDownList, ByVal Cadena As String) As DropDownList
        Dim categoriaTable As New ponderacionesDataTable
        categoriaTable = ponderaciones.GetPonderacionByCategoria(Cadena)
        DropDown.DataSource = categoriaTable
        DropDown.DataTextField = categoriaTable.Columns("etiqueta").ToString
        DropDown.DataValueField = categoriaTable.Columns("valor_interno").ToString
        DropDown.DataBind()
        Return DropDown
    End Function
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Abuelo_Mat As String = TxtNoAbueloMat.Text & TxtLtraAbueloMat.Text & TxtAnoAbueloMaterno.Text
        Dim tabla As String
        ' Obtengo el numero de filtro a traves de la URL 
        Try
            iIdFiltro = Request.QueryString("filtro")
        Catch ex As Exception
            iIdFiltro = 0
        End Try

        If Not (iIdFiltro = 0) Then ' comprobar que existe un numero valido

            filtro = AdapFiltro.GetFiltroById(iIdFiltro) ' -- Cargar el encabezado del filtro
            lblAnimal.Text = filtro(0).nombreFiltro
            filtroDetalle = AdapFiltroDettalle.GetFiltroDetalleById(iIdFiltro) ' - obten la tabla de detalles del filtro

            If filtroDetalle.Rows.Count > 0 And Not IsPostBack Then
                'Identificacion

                daValorPorCampoDDL("HIERRO", ddlHierro, "Animal") 'OK
                daValorPorCampoDDL("SEXO", ddlSexo, "Animal") 'OK
                daValorPorCampoCHK("PHOTO", ChkFoto, "Animal") 'OK
                daValorPorCampoRDO("_FECHABAJA", RDOBLMuertoVivo, "Animal") ' Se calcula por fecha 



                daValorPorCampoTB("NUMERO", txtNumero, "Animal") 'OK
                daValorPorCampoTB("LETRA", txtLetra, "Animal") 'OK
                daValorPorCampoTB("ano", txtAno, "Animal") 'OK
                daValorPorCampoTB("NOMBRE", txtNombre, "Animal") 'OK
                daValorPorCampoTB("NO_PADRE", txtNoPadre, "Animal") 'OK
                daValorPorCampoTB("LTRA_PADRE", txtLtraPadre, "Animal") 'OK
                daValorPorCampoTB("ANO_PADRE", txtAnoPadre, "Animal") 'OK
                daValorPorCampoTB("NO_MADRE", txtNoMadre, "Animal") 'OK
                daValorPorCampoTB("LTRA_MADRE", txtLtraMadre, "Animal") 'OK
                daValorPorCampoTB("ANO_MADRE", txtAnoMadre, "Animal") 'OK
                daValorPorCampoTB("NUMABUELO_MAT", TxtNoAbueloMat, "Animal") ' numero ligado al ABUELO_MAT
                daValorPorCampoTB("LETRAABUELO_MAT", TxtLtraAbueloMat, "Animal") ' Letra ligado al ABUELO_MAT
                daValorPorCampoTB("ANOABUELO_MAT", TxtAnoAbueloMaterno, "Animal") ' Año ligado al ABUELO_MAT
                daValorPorCampoTB("TIENTA_AC", txtTientaAC, "Animal") 'OK
                daValorPorCampoTB("TIENTA_AP", txtTientaAP, "Animal") 'OK
                daValorPorCampoTB("LIDIA_AC", txtLidiaAC, "Animal") 'OK
                daValorPorCampoTB("LIDIA_AP", txtLidiaAP, "Animal") 'OK
                daValorPorCampoTB2("PORCIEN_CS", txtPorcienCS1, txtPorcienCS2, "Animal") 'OK
                daValorPorCampoTB2("EDAD", txtEdad1, txtEdad2, "Animal") ' OK
                daValorPorCampoTB("/COMETARIO", TBComentario, "Animal")
                daValorPorCampoTB2("FECHANAC", txtFechaNac, txtFechaNac2, "Animal") ' OK

                'Generales
                daValorPorCampoDDL("UBICACION", ddlUbicacion, "Animal")
                daValorPorCampoDDL("PROPIEDAD", ddlPropiedad, "Animal") 'OK
                daValorPorCampoDDL("ENCASTE", ddlEncaste, "Animal") 'OK
                daValorPorCampoTB("REG_ANCTL", txtRegANCTL, "Animal")

                'Estatus
                daValorPorCampoDDL("ESTATUS", ddlEstatus, "Animal") 'OK
                daValorPorCampoDDL("MUERTO", ddlCausaMuerte, "Animal") 'OK
                daValorPorCampoTB2("FECHAUBICA", txtFechaUbica1, txtFechaUbica2, "Animal")
                daValorPorCampoTB2("FECHAMUERTE", txtFechaMuerte1, txtFechaMuerte2, "Animal")
                daValorPorCampoTB2("FECHA_HERRADERO", txtFechaHerradero1, txtFechaHerradero2, "Animal")
                daValorPorCampoTB2("FECHABAJA", txtFechaBaja1, txtFechaBaja2, "Animal") 'OK

                'Herencia
                daValorPorCampoTB("ADN", TxtBADN, "Animal")
                daValorPorCampoDDL("FENOTIPO", ddlFenotipo, "Animal") 'OK
                daValorPorCampoDDL("COMPORTAMIENTO", ddlComportamiento, "Animal") 'OK

                'Morfologia
                daValorPorCampoDDL("PELAJE1", ddlPelaje1, "Animal") 'OK
                daValorPorCampoDDL("PELAJE2", ddlPelaje2, "Animal") 'OK
                daValorPorCampoDDL("PELAJE3", ddlPelaje3, "Animal") 'OK
                daValorPorCampoDDL("PELAJE4", ddlPelaje4, "Animal") 'OK
                daValorPorCampoDDL("PITON_LONG", ddlLongitud, "Animal") 'OK
                daValorPorCampoDDL("PITON_SIME", ddlSimetria, "Animal") 'OK
                daValorPorCampoDDL("PITON_PUNTA", ddlPuntas, "Animal") ' OK
                daValorPorCampoDDL("PITON_FORMA", ddlFormas, "Animal") ' OK
                daValorPorCampoDDL("HEC_TAMAÑO", ddlTamaño, "Animal") ' OK
                daValorPorCampoDDL("HEC_LONGITUD", ddlHLongitud, "Animal") 'OK
                daValorPorCampoDDL("HEC_ALTURA", ddlAltura, "Animal") 'OK
                daValorPorCampoDDL("HEC_AGUJAS", ddlAgujas, "Animal") 'OK
                daValorPorCampoDDL("HEC_ANCHURA", ddlAnchura, "Animal") 'OK
                daValorPorCampoDDL("HEC_LOMO", ddlLomo, "Animal") 'OK
                daValorPorCampoDDL("HEC_CUELLO", ddlCuello, "Animal") 'OK
                daValorPorCampoDDL("HEC_CABEZA_TAM", ddlCzaTam, "Animal") 'OK
                daValorPorCampoDDL("HEC_CABEZA_TIP", ddlCzaTipo, "Animal") 'OK
                daValorPorCampoDDL("HEC_CONJUNTO", ddlConjunto, "Animal") 'OK
                daValorPorCampoDDL("HEC_TRAPIO", ddlTrapio, "Animal") 'OK
                daValorPorCampoDDL("HEC_MORRILLO", ddlMorrillo, "Animal") 'OK

                'Tienta
                daValorPorCampoTB2("TIENTA_FECHA", txtFechaTienta1, txtFechaTienta2, "Animal")
                daValorPorCampoDDL("TIENTA_TORERO", ddlTorero, "Animal")
                daValorPorCampoDDL("TIENTA_PICADOR", ddlPicador, "Animal")
                daValorPorCampoDDL("TIENTA_PLAZA", ddPlaza, "Animal")
                daValorPorCampoDDL("TIENTA_AC", DropDLTientaEmotivaCab, "Animal")
                daValorPorCampoDDL("TIENTA_AP", DropDLTientaEmotivaPie, "Animal")
                daValorPorCampoDDL("TIENTA_ACCal", DropDLTientaCalculadaCab, "Animal")
                daValorPorCampoDDL("TIENTA_APCal", DropDLTientaCalculadaPie, "Animal")
                ''daValorPorCampoTB("TIENTA_AC", TxtEmotivaTC, "Animal")
                ''daValorPorCampoTB("TIENTA_AP", TxtEmotivaTP, "Animal")
                'Tienta a caballo
                daValorPorCampoDDL("REGRESA", ddlTaCRegresa, "TientaCaballo") ' TientaCaballo
                daValorPorCampoDDL("DISTANCIA", ddlTaCDistancia, "TientaCaballo") ' TientaCaballo
                daValorPorCampoDDL("SITIO", ddlTaCSitio, "TientaCaballo") ' TientaCaballo
                daValorPorCampoDDL("APRIETA", ddlTaCAprieta, "TientaCaballo") ' TientaCaballo
                daValorPorCampoDDL("FIJEZA", ddlTaCFijeza, "TientaCaballo") ' TientaCaballo
                daValorPorCampoDDL("CABEZA", ddlTaCCabeza, "TientaCaballo") ' TientaCaballo
                daValorPorCampoDDL("DEFIENDE", ddlTaCDefiende, "TientaCaballo") ' TientaCaballo
                daValorPorCampoDDL("VARA", ddlTaCTomoVara, "TientaCaballo") ' TientaCaballo
                'Tienta a pie
                daValorPorCampoDDL("CLASE", DDLTientaClase, "Animal") ' Animal
                daValorPorCampoDDL("NOBLEZA", DDLTientaNobleza, "Animal") ' Animal
                daValorPorCampoDDL("RAZA", DDLTientaRaza, "Animal") ' Animal
                daValorPorCampoDDL("EMOTIVIDAD", DDLTientaEmotividad, "Animal") ' Animal

                daValorPorCampoDDL("EMOTIVIDAD", ddlTaPEmotividad, "TientaPie") ' TientaPie
                daValorPorCampoDDL("FIJEZA", ddlTaPFijeza, "TientaPie") ' TientaPie
                daValorPorCampoDDL("REMATA", ddlTaPRemata, "TientaPie") ' TientaPie
                daValorPorCampoDDL("DESARROLLO", ddlTaPDesarrollo, "TientaPie") ' TientaPie
                daValorPorCampoDDL("DISTANCIA", ddlTaPDistancia, "TientaPie") ' TientaPie
                daValorPorCampoDDL("PRONTITUD", ddlTaPProntitud, "TientaPie") ' TientaPie
                daValorPorCampoDDL("FUERZA", ddlTaPFuerza, "TientaPie") ' TientaPie
                daValorPorCampoDDL("ENRAZADO", ddlTaPEnrazado, "TientaPie") ' TientaPie
                daValorPorCampoDDL("FIREZA", ddlTaPFiereza, "TientaPie") ' TientaPie
                daValorPorCampoDDL("GALOPE", ddlTaPGalope, "TientaPie") ' TientaPie
                daValorPorCampoDDL("ALEGRIA", ddlmAlegria, "TientaPie") ' TientaPie
                daValorPorCampoDDL("OBEDIENTE", ddlmObediente, "TientaPie") ' TientaPie
                daValorPorCampoDDL("GAZAPEA", ddlmGazapea, "TientaPie") ' TientaPie
                daValorPorCampoDDL("ESCARBA", ddlTaPEscarba, "TientaPie") ' TientaPie
                daValorPorCampoDDL("QUERENCIA", ddlTaPQuerencia, "TientaPie") ' TientaPie
                daValorPorCampoDDL("BERREA", ddlTaPBerrea, "TientaPie") ' TientaPie
                'Tienta engaños
                daValorPorCampoDDL("RECTITUD_DER", ddlTaPRectitud_D, "TientaPie") ' TientaPie
                daValorPorCampoDDL("RECTITUD_IZQ", ddlTaPRectitud_I, "TientaPie") ' TientaPie
                daValorPorCampoDDL("REPITE_DER", ddlTaPRepite_D, "TientaPie") ' TientaPie
                daValorPorCampoDDL("REPITE_IZQ", ddlTaPRepite_I, "TientaPie") ' TientaPie
                daValorPorCampoDDL("NOBLEZA_DER", ddlTaPNobleza_D, "TientaPie") ' TientaPie
                daValorPorCampoDDL("NOBLEZA_IZQ", ddlTaPNobleza_I, "TientaPie") ' TientaPie
                daValorPorCampoDDL("SON_DER", ddlTaPSon_D, "TientaPie") ' TientaPie
                daValorPorCampoDDL("SON_IZQ", ddlTaPSon_I, "TientaPie") ' TientaPie
                daValorPorCampoDDL("REPONE_DER", ddlTaPRepone_D, "TientaPie") ' TientaPie
                daValorPorCampoDDL("REPONE_IZQ", ddlTaPRepone_I, "TientaPie") ' TientaPie
                daValorPorCampoDDL("PCABEZA_D", ddlTaPCabeza_D, "TientaPie") ' TientaPie
                daValorPorCampoDDL("PCABEZA_I", ddlTaPCabeza_I, "TientaPie") ' TientaPie
                daValorPorCampoDDL("PMANOS_D", ddlTaPMano_D, "TientaPie") ' TientaPie
                daValorPorCampoDDL("PMANOS_I", ddlTaPMano_I, "TientaPie") ' TientaPie
                daValorPorCampoDDL("PRECORRIDO_D", ddlTaPRecorrido2_D, "TientaPie") ' TientaPie
                daValorPorCampoDDL("PRECORRIDO_I", ddlTaPRecorrido2_I, "TientaPie") ' TientaPie
                daValorPorCampoDDL("PFINALIZACION_D", ddlTaPFinalizacion_D, "TientaPie") ' TientaPie
                daValorPorCampoDDL("PFINALIZACION_I", ddlTaPFinalizacion_I, "TientaPie") ' TientaPie
                daValorPorCampoDDL("BAJACABEZA", ddlTaPBajaCabeza, "TientaPie") ' TientaPie
                daValorPorCampoDDL("RAJADO", ddlTaPRajado, "TientaPie") ' TientaPie
                daValorPorCampoDDL("PASES", ddlTaPPases, "TientaPie") ' TientaPie
                daValorPorCampoDDL("CABEZA", ddlTaPCabezas, "TientaPie") ' TientaPie

                'Lidia
                daValorPorCampoTB2("LIDIA_FECHA", TxtFechaLidia1, TxtFechaLidia2, "Animal") ' Animal


                daValorPorCampoDDL("LIDIA_AC", DropDLLidiaEmotivaCab, "Animal")
                daValorPorCampoDDL("LIDIA_AP", DropDLLidiaEmotivaPie, "Animal")
                daValorPorCampoDDL("LIDIA_ACCal", DropDLLidiaCalculadaCab, "Animal")
                daValorPorCampoDDL("LIDIA_APCal", DropDLLidiaCalculadaPie, "Animal")
                daValorPorCampoTB2("LIDIA_PESO", TxtPeso1, TxtPeso2, "Animal")
                daValorPorCampoTB2("LIDIA_PRECIO", txtPrecio1, txtPrecio2, "Animal")
                ''daValorPorCampoTB("LIDIA_AC", TxtLaCEmotividad, "Animal") ' Animal
                '' daValorPorCampoTB("LIDIA_AP", TxtLaPEmotividad, "Animal") ' Animal
                daValorPorCampoDDL("LIDIA_PLAZA", ddlPlaza, "Animal") ' Animal
                daValorPorCampoTB("LIDIA_NOMBRE", TBSobreNombre, "Animal") ' aNIMAL

                daValorPorCampoTB("LIDIA_LUGAR", txtLugarLidia, "Animal") ' Animal
                ''daValorPorCampoTB("LIDIA_PESO", TxtPeso, "Animal") ' Animal
                daValorPorCampoDDL("LIDIA_RESULTADO", ddlResultado, "Animal") ' Animal
                daValorPorCampoDDL("LIDIA_MATADOR", ddlMatador, "Animal") ' Animal
                daValorPorCampoDDL("LIDIA_TROFEOS", ddlTrofeos, "Animal") ' Animal
                daValorPorCampoDDL("LIDIA_REC_GAN", ddlReconocimiento, "Animal") ' Animal
                ''daValorPorCampoTB("LIDIA_PRECIO", txtPrecio, "Animal") ' Animal
                'Lidia a caballo
                daValorPorCampoDDL("REGRESA", ddlLaCRegresa, "LidiaCaballo") 'LidiaCaballo
                daValorPorCampoDDL("DISTANCIA", ddlLaCDistancia, "LidiaCaballo") 'LidiaCaballo
                daValorPorCampoDDL("SITIO", ddlLaCSitio, "LidiaCaballo") 'LidiaCaballo
                daValorPorCampoDDL("APRIETA", ddlLaCAprieta, "LidiaCaballo") 'LidiaCaballo
                daValorPorCampoDDL("FIJEZA", ddlLaCFijeza, "LidiaCaballo") 'LidiaCaballo
                daValorPorCampoDDL("CABEZA", ddlLaCCabeza, "LidiaCaballo") 'LidiaCaballo
                daValorPorCampoDDL("DEFINE", ddlLaCDefine, "LidiaCaballo") 'LidiaCaballo
                daValorPorCampoDDL("VARA", ddlLaCTomoVara, "LidiaCaballo") 'LidiaCaballo
                'Lidia a pie
                daValorPorCampoDDL("LIDIA_CLASE", DDLLidiaClase, "Animal") ' Animal
                daValorPorCampoDDL("LIDIA_NOBLEZA", DDLLidiaNobleza, "Animal") ' Animal
                daValorPorCampoDDL("LIDIA_RAZA", DDLLidiaRaza, "Animal") ' Animal
                daValorPorCampoDDL("LIDIA_EMOTIVIDAD", DDLLidiaEmotividad, "Animal") ' Animal

                daValorPorCampoDDL("EMOTIVIDAD", ddlLaPEmotividad, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("FIJEZA", ddlLaPFijeza, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("REMATE", ddlLaPRemate, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("DESARROLLO", ddlLaPDesarrollo, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("DISTANCIA", ddlLaPDistancia, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("PRONTITUD", ddlLaPProntitud, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("FUERZA", ddlLaPFuerza, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("ENRAZADO", ddlLaPEnrazado, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("FIREZA", ddlLaPFiereza, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("GALOPE", ddlLaPGalope, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("ALEGRIA", ddlLaPAlegria, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("OBEDIENCIA", ddlLaPObediencia, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("GAZAPEA", ddlLaPGazapea, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("ESCARBA", ddlLaPEscarba, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("QUERENCIA", ddlLaPQuerencia, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("BERREA", ddlLaPBerrea, "LidiaPie") ' LidiaPie
                'Lidia engaños
                daValorPorCampoDDL("RECTITUD_DER", ddlLaPRectitud_D, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("RECTITUD_IZQ", ddlLaPRectitud_I, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("REPITE_DER", ddlLaPRepite_D, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("REPITE_IZQ", ddlLaPRepite_I, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("NOBLEZA_DER", ddlLaPNobleza_D, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("NOBLEZA_IZQ", ddlLaPNobleza_I, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("SON_DER", ddlLaPSon_D, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("SON_IZQ", ddlLaPSon_I, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("REPONE_DER", ddlLaPRepone_D, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("REPONE_IZQ", ddlLaPRepone_I, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("PCABEZA_D", ddlLaPCabeza_D, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("PCABEZA_I", ddlLaPCabeza_I, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("PMANOS_D", ddlLaPManos_D, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("PMANOS_I", ddlLaPManos_I, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("RECORRIDO_DER", ddlLaPRecorrido_D, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("RECORRIDO_IZQ", ddlLaPRecorrido_I, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("PFINALIZACION_D", ddlLaPFinalizacion_D, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("PFINALIZACION_I", ddlLaPFinalizacion_I, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("BAJACABEZA", ddlLaPBajaCabeza, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("RAJADO", ddlLaPRajado, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("PASES", ddlLaPases, "LidiaPie") ' LidiaPie
                daValorPorCampoDDL("CABEZA", ddlLaPCaveza, "LidiaPie") ' LidiaPie

                'Empadres
                daValorPorCampoTB("VEMPNUMERO", TxtVEmpNumero, "empadre") 'empadres
                daValorPorCampoTB("VEMPLETRA", TxtVEmpLtra, "empadre") 'empadres
                daValorPorCampoTB("VEMPANO", TxtVEmpAno, "empadre")   'empadres
                daValorPorCampoDDL("UBICACION", ddlUbicacionEmpadres, "empadre") 'OK  empadres
                daValorPorCampoTB("FECHAINI", TxtFechaEmp1, "empadre") 'OK  empadres
                daValorPorCampoTB("FECHAFIN", TxtFechaEmp2, "empadre") 'OK  empadres
                daValorPorCampoTB("VEMPADRES", TxtVEmpadres, "empadre") 'empadres CALCULADO
                daValorPorCampoTB("VNoPARIERON", TxtVNoParieron, "empadre") 'empadres CALCULADO
                'Sanidad

                daValorPorCampoTB2("FECHA", TextFechaSanidadIni1, TextFechaSanidadIni2, "Sanidad")
                daValorPorCampoDDL("TIPOSANIDAD", ddlTiposSanidad, "Sanidad")
                daValorPorCampoTB("PRODUCTO", TBProducto, "Sanidad")
            End If
        End If
        If Len(TxtVEmpNumero.Text) > 0 Or Len(TxtVEmpLtra.Text) > 0 Or Len(TxtVEmpAno.Text) > 0 Then
            '
            RBtnLVacas.Items(0).Selected = True
            RBtnLVacas.Items(1).Selected = False
        Else
            
            '
        End If
    End Sub
    Public Sub daValorPorCampoRDO(ByVal campo As String, ByVal Control As RadioButtonList, ByVal Tabla As String)
        Dim RowFiltro As filtroDetalleRow
        RowFiltro = filtroDetalle.FindByidFiltrocampotabla(iIdFiltro, campo, Tabla)
        If Not IsNothing(RowFiltro) Then
            If RowFiltro.valor1 = "IS NULL" Then
                Control.SelectedIndex = 0
                Control.Items(0).Selected = True
            Else
                If RowFiltro.valor1 = "IS NOT NULL" Then
                    Control.SelectedIndex = 1
                    Control.Items(1).Selected = True
                Else
                    Control.SelectedIndex = 2
                    Control.Items(2).Selected = True
                End If

            End If
            'Control.Checked = RowFiltro.valor1
        End If
    End Sub
    Public Sub daValorPorCampoCHK(ByVal campo As String, ByVal Control As CheckBox, ByVal Tabla As String)
        Dim RowFiltro As filtroDetalleRow
        RowFiltro = filtroDetalle.FindByidFiltrocampotabla(iIdFiltro, campo, Tabla)
        If Not IsNothing(RowFiltro) Then
            If RowFiltro.valor1 = 1 Then
                Control.Checked = True
            Else
                Control.Checked = False
            End If
            Control.Checked = RowFiltro.valor1
        End If
    End Sub

    Public Sub daValorPorCampoTB(ByVal campo As String, ByRef Control As TextBox, ByVal Tabla As String)
        Dim RowFiltro As filtroDetalleRow
        RowFiltro = filtroDetalle.FindByidFiltrocampotabla(iIdFiltro, campo, Tabla)
        If Not IsNothing(RowFiltro) Then
            Control.Text = RowFiltro.valor1
        End If
    End Sub
    Public Sub daValorPorCampoTB2(ByVal campo As String, ByRef Control1 As TextBox, ByRef Control2 As TextBox, ByVal Tabla As String)
        Dim RowFiltro As filtroDetalleRow
        RowFiltro = filtroDetalle.FindByidFiltrocampotabla(iIdFiltro, campo, Tabla)
        If Not IsNothing(RowFiltro) Then
            Control1.Text = RowFiltro.valor1
            Control2.Text = RowFiltro.valor2
        End If
    End Sub
    Public Sub daValorPorCampoDDL(ByVal campo As String, ByRef Control As DropDownList, ByVal Tabla As String)
        Dim RowFiltro As filtroDetalleRow
        RowFiltro = filtroDetalle.FindByidFiltrocampotabla(iIdFiltro, campo, Tabla)
        If Not IsNothing(RowFiltro) Then
            Control.SelectedValue = RowFiltro.valor1
        End If
    End Sub
    Public Sub otorgarValorTB28(ByVal idFiltro As Integer, ByRef control1 As TextBox, ByRef control2 As TextBox, ByVal campo As String, ByVal tabla As String)
        Dim Mycampo1 As String
        Dim Mycampo2 As String
        Dim num As Integer
        Mycampo1 = control1.Text
        Mycampo2 = control2.Text

        Dim ConexionBD As New SqlConnection()
        ConexionBD.ConnectionString = ConfigurationManager.ConnectionStrings("GanaderiaConnectionString").ConnectionString
        Dim OrdenSQL As SqlCommand = Nothing
        Dim Lector As SqlDataReader = Nothing
        Try
            Dim Consulta As String = "Select idFiltro, campo, valor1, valor2, tabla from filtroDetalle where idFiltro=" & "'" & iIdFiltro & "'" & " and campo=" & "'" & campo & "'" & " and tabla=" & "'" & tabla & "'"
            OrdenSQL = New SqlCommand(Consulta, ConexionBD)
            ConexionBD.Open()
            Lector = OrdenSQL.ExecuteReader()
            num = Lector.HasRows

            If Lector.Read() Then


            End If


        Catch ex As Exception

        End Try
        sSQL = "INSERT INTO filtroDetalle (idFiltro, campo, valor1, valor2, tabla) VALUES  ('" + iIdFiltro.ToString + "'" & "," & "'" + campo + "'" & "," & "'" + Mycampo1 + "'" & "," & "'" + Mycampo2 + "'" & "," & "'" + tabla + "')"
        Try
            sdsFiltro.ConnectionString = ConfigurationManager.ConnectionStrings("GanaderiaConnectionString").ConnectionString
            sdsFiltro.InsertCommand = sSQL
            sdsFiltro.Insert()
        Catch ex As Exception
            ' Response.Write(ex.Message)
        End Try


    End Sub
    Public Sub otorgarValorRDO(ByVal idFiltro As Integer, ByRef control As RadioButtonList, ByVal campo As String, ByVal tabla As String)
        Dim FiltroRow As filtroDetalleRow
        Dim Mycampo1 As String
        Dim Mycampo2 As String
        FiltroRow = filtroDetalle.FindByidFiltrocampotabla(idFiltro, campo, tabla)
        If control.SelectedIndex = 0 Then
            Mycampo1 = "IS NULL"
        Else
            If control.SelectedIndex = 1 Then
                Mycampo1 = "IS NOT NULL"
            Else
                Mycampo1 = ""
            End If
        End If



        If Not IsNothing(FiltroRow) Then
            If Trim(Mycampo1).Length > 0 Then
                FiltroRow.valor1 = Mycampo1

                Dim Actualiza1 = AdapFiltroDettalle.Update(FiltroRow)
            Else

                Dim Actualiza2 = AdapFiltroDettalle.Delete(idFiltro, campo, tabla)
            End If
        Else
            If Trim(Mycampo1).Length >= 1 Then
                AdapFiltroDettalle.Insert(idFiltro, campo, Mycampo1, Mycampo2, tabla)
            End If
        End If



    End Sub

    Public Sub otorgarValorCHK(ByVal idFiltro As Integer, ByRef control As CheckBox, ByVal campo As String, ByVal tabla As String)
        Dim FiltroRow As filtroDetalleRow
        Dim Mycampo1 As String
        Dim Mycampo2 As String
        FiltroRow = filtroDetalle.FindByidFiltrocampotabla(idFiltro, campo, tabla)

        If control.Checked = True Then
            Mycampo1 = 1
        Else

        End If

        ' Mycampo1 = control.Checked



        If Not IsNothing(FiltroRow) Then
            If Trim(Mycampo1).Length > 0 Then
                FiltroRow.valor1 = Mycampo1

                Dim Actualiza1 = AdapFiltroDettalle.Update(FiltroRow)
            Else

                Dim Actualiza2 = AdapFiltroDettalle.Delete(idFiltro, campo, tabla)
            End If
        Else
            If Trim(Mycampo1).Length >= 1 Then
                AdapFiltroDettalle.Insert(idFiltro, campo, Mycampo1, Mycampo2, tabla)
            End If
        End If


    End Sub
    Public Sub otorgarValorTB2(ByVal idFiltro As Integer, ByRef control1 As TextBox, ByRef control2 As TextBox, ByVal campo As String, ByVal tabla As String)
        Dim FiltroRow As filtroDetalleRow
        Dim Mycampo1 As String
        Dim Mycampo2 As String
        FiltroRow = filtroDetalle.FindByidFiltrocampotabla(idFiltro, campo, tabla)

        Mycampo1 = control1.Text
        Mycampo2 = control2.Text


        If Not IsNothing(FiltroRow) Then
            If Trim(Mycampo1).Length > 0 Then
                FiltroRow.valor1 = Mycampo1
                FiltroRow.valor2 = Mycampo2

                Dim Actualiza1 = AdapFiltroDettalle.Update(FiltroRow)
            Else

                Dim Actualiza2 = AdapFiltroDettalle.Delete(idFiltro, campo, tabla)
            End If
        Else
            If Trim(Mycampo1).Length >= 1 Then
                AdapFiltroDettalle.Insert(idFiltro, campo, Mycampo1, Mycampo2, tabla)
            End If
        End If

    End Sub
    Public Sub otorgarValorTB(ByVal idFiltro As Integer, ByRef control As TextBox, ByVal valor As Integer, ByVal campo As String, ByVal tabla As String)
        Dim FiltroRow As filtroDetalleRow
        Dim Mycampo1 As String
        Dim Mycampo2 As String
        FiltroRow = filtroDetalle.FindByidFiltrocampotabla(idFiltro, campo, tabla)
        If valor = 1 Then
            Mycampo1 = control.Text
        Else
            Mycampo1 = control.Text
            Mycampo2 = control.Text
        End If

        If Not IsNothing(FiltroRow) Then
            If Trim(Mycampo1).Length > 0 Then
                If valor = 1 Then
                    FiltroRow.valor1 = Mycampo1
                ElseIf valor = 2 Then
                    FiltroRow.valor1 = Mycampo1
                    FiltroRow.valor2 = Mycampo2
                End If
                Dim Actualiza = AdapFiltroDettalle.Update(FiltroRow)
            Else
                Dim Actualiza = AdapFiltroDettalle.Delete(idFiltro, campo, tabla)
            End If
        Else
            If Trim(Mycampo1).Length > 0 Then
                AdapFiltroDettalle.Insert(idFiltro, campo, Mycampo1, Mycampo2, tabla)
            End If
        End If
    End Sub
    Public Sub otorgarValorDDL(ByVal idFiltro As Integer, ByRef Control As DropDownList, ByVal valor As Integer, ByVal campo As String, ByVal tabla As String)
        Dim FiltroRow As filtroDetalleRow
        FiltroRow = filtroDetalle.FindByidFiltrocampotabla(idFiltro, campo, tabla)
        Dim Mycampo As String = Control.SelectedValue

        If Not IsNothing(FiltroRow) Then
            Dim myi As Integer = CInt(Trim(Mycampo).Length)
            Dim mys As String = CStr(Trim(Mycampo))
            If myi <> 0 Then
                If mys <> "0" Then

                    If Trim(Mycampo).Length <> 0 Or Trim(Mycampo).ToString <> "0" Then
                        If valor = 1 Then
                            FiltroRow.valor1 = Mycampo
                        ElseIf valor = 2 Then
                            FiltroRow.valor2 = Mycampo
                        End If
                        Dim Actualiza = AdapFiltroDettalle.Update(FiltroRow)
                    Else
                        Dim Actualiza = AdapFiltroDettalle.Delete(idFiltro, campo, tabla)
                    End If
                Else
                    Dim Actualiza = AdapFiltroDettalle.Delete(idFiltro, campo, tabla)
                End If
            Else
                Dim Actualiza = AdapFiltroDettalle.Delete(idFiltro, campo, tabla)
            End If

        Else
            'If Trim(Mycampo).Length > 0 Or Trim(Mycampo).ToString <> "" Or Trim(Mycampo).ToString <> "0" Then
            Dim myi As Integer = CInt(Trim(Mycampo).Length)
            If myi > 0 Then
                If Mycampo <> "0" Then
                    AdapFiltroDettalle.Insert(idFiltro, campo, Mycampo, "", tabla)

                End If
            End If
        End If
    End Sub
    Protected Sub RBtnLVacas_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RBtnLVacas.SelectedIndexChanged
        'Dim rep As Boolean = RBtnLVacas.Items(0).Selected idFiltro, campo, Mycampo, "", tabla)
        If RBtnLVacas.SelectedIndex = 0 Then
            TxtVEmpadres.Enabled = False
            TxtVNoParieron.Enabled = False
            TxtVEmpadres.Text = ""
            TxtVNoParieron.Text = ""
            TxtVEmpNumero.Enabled = True


            TxtVEmpLtra.Enabled = True
            TxtVEmpAno.Enabled = True
            TxtFechaEmp1.Enabled = True
            TxtFechaEmp2.Enabled = True
            ddlUbicacionEmpadres.Enabled = True
            ImageButton10.Enabled = True
            ImageButton11.Enabled = True
            inisex()
        Else
            TxtVEmpadres.Enabled = True
            TxtVNoParieron.Enabled = True
            TxtVEmpNumero.Enabled = False


            TxtVEmpLtra.Enabled = False
            TxtVEmpAno.Enabled = False
            TxtFechaEmp1.Enabled = False
            TxtFechaEmp2.Enabled = False
            ddlUbicacionEmpadres.Enabled = False

            ImageButton10.Enabled = False
            ImageButton11.Enabled = False
            TxtVEmpNumero.Text = ""
            TxtVEmpLtra.Text = ""
            TxtVEmpAno.Text = ""
            TxtFechaEmp1.Text = ""
            TxtFechaEmp2.Text = ""
            ddlUbicacionEmpadres.Text = ""
            inisex()
        End If
    End Sub
    Sub inisex()
        ddlSexo.Text = ""
        ddlSexo.Enabled = False
    End Sub
    Public Sub comprobacionValorTB(ByRef Control As TextBox, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs, ByVal valor As Integer)
        Dim ValorN As Integer
        Dim ValorC As String
        If valor = 1 Then
            Try
                If Len(Control.Text) > 0 Then
                    'Intenta hacer la conversión a int para comprobar que sera un valor numerico
                    ValorN = Int32.Parse(Control.Text)
                End If
            Catch
                args.IsValid = False
                Exit Sub
            End Try
            ' args.IsValid = True 'Si llego hasta aqui entonces la validación fue exitosa
        End If

        If valor = 2 Then
            Try
                If Len(Control.Text) > 0 Then
                    'Intenta hacer la conversión a int para comprobar que sera un valor numerico
                    Try
                        ValorN = Int32.Parse(Control.Text)
                        args.IsValid = False
                    Catch

                    End Try
                End If
            Catch
                args.IsValid = False
                Exit Sub
            End Try

        End If

        If valor = 3 Then
            Try
                If Len(Control.Text) > 0 Then
                    'Intenta hacer la conversión a int para comprobar que sera un valor numerico
                    ValorN = Int32.Parse(Control.Text)
                    If ValorN > 1940 And ValorN < 3000 Then
                    Else
                        args.IsValid = False
                    End If
                End If
            Catch
                args.IsValid = False
                Exit Sub
            End Try
            ' args.IsValid = True 'Si llego hasta aqui entonces la validación fue exitosa
        End If
    End Sub
    Protected Sub CustomValidator1_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator1.ServerValidate
        args.IsValid = True
        comprobacionValorTB(txtNumero, args, 1)
    End Sub
    Protected Sub CustomValidator2_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator2.ServerValidate
        comprobacionValorTB(txtLetra, args, 2)
    End Sub
    Protected Sub CustomValidator3_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator3.ServerValidate
        comprobacionValorTB(txtAno, args, 3)
    End Sub
    Protected Sub CustomValidator4_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator4.ServerValidate
        comprobacionValorTB(txtNoPadre, args, 1)
    End Sub
    Protected Sub CustomValidator5_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator5.ServerValidate
        comprobacionValorTB(txtLtraPadre, args, 2)
    End Sub
    Protected Sub CustomValidator6_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator6.ServerValidate
        comprobacionValorTB(txtAnoPadre, args, 3)
    End Sub
    Protected Sub CustomValidator7_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator7.ServerValidate
        comprobacionValorTB(txtNoMadre, args, 1)
    End Sub
    Protected Sub CustomValidator8_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator8.ServerValidate
        comprobacionValorTB(txtLtraMadre, args, 2)
    End Sub
    Protected Sub CustomValidator9_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator9.ServerValidate
        comprobacionValorTB(txtAnoMadre, args, 3)
    End Sub
    Protected Sub CustomValidator10_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator10.ServerValidate
        comprobacionValorTB(TxtNoAbueloMat, args, 1)
    End Sub
    Protected Sub CustomValidator11_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator11.ServerValidate
        comprobacionValorTB(TxtLtraAbueloMat, args, 2)
    End Sub
    Protected Sub CustomValidator12_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator12.ServerValidate
        comprobacionValorTB(TxtAnoAbueloMaterno, args, 3)
    End Sub
    Protected Sub CustomValidator13_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator13.ServerValidate
        comprobacionValorTB(TxtVEmpNumero, args, 1)
    End Sub
    Protected Sub CustomValidator14_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator14.ServerValidate
        comprobacionValorTB(TxtVEmpLtra, args, 2)
    End Sub
    Protected Sub CustomValidator15_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator15.ServerValidate
        comprobacionValorTB(TxtVEmpAno, args, 3)
    End Sub
    Protected Sub CustomValidator16_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator16.ServerValidate
        comprobacionValorTB(TxtVEmpadres, args, 3)
    End Sub
    Protected Sub CustomValidator17_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CustomValidator17.ServerValidate
        comprobacionValorTB(TxtVNoParieron, args, 3)
    End Sub
    'Protected Sub BtnAplica_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnAplica.Click
    '    Try
    '        iIdFiltro = Request.QueryString("filtro")
    '    Catch ex As Exception
    '        iIdFiltro = 0
    '    End Try
    '    Session("filtro") = iIdFiltro
    'End Sub
    Protected Sub TxtAnoAbueloMaterno_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtAnoAbueloMaterno.TextChanged

    End Sub

    Protected Sub ImageButton5_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton5.Click
        Dim camposexo As String = "T"
        Dim camponumero As String = TxtVEmpNumero.Text
        Dim campoletra As String = TxtVEmpLtra.Text
        Dim campoanio As String = TxtVEmpAno.Text

        Dim ConexionBD As New SqlConnection()
        ConexionBD.ConnectionString = ConfigurationManager.ConnectionStrings("GanaderiaConnectionString").ConnectionString
        Dim OrdenSQL As SqlCommand = Nothing
        Dim Lector As SqlDataReader = Nothing
        Try
            Dim Consulta As String = "Select AnimalId, sexo, numero, letra, ano, nombre from animal where sexo=" & "'" & camposexo & "'" & " and numero=" & "'" & camponumero & "'" & " and letra=" & "'" & campoletra & "'" & " and ano=" & "'" & campoanio & "'"
            OrdenSQL = New SqlCommand(Consulta, ConexionBD)
            ConexionBD.Open()
            Lector = OrdenSQL.ExecuteReader()

            If Lector.Read() Then
                TxtVEmpNombre.Text = Lector("nombre")

            End If


        Catch ex As Exception

        End Try


    End Sub


    Protected Sub LBAplicar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LBAplicar.Click
        Guarda()
        Try
            iIdFiltro = Request.QueryString("filtro")
        Catch ex As Exception
            iIdFiltro = 0
        End Try


        If iIdFiltro = 0 Then
            pnActualizado.CssClass = "error"
            lblActualizado.Text = "Filtro sin aplicado"
        Else
            Dim ruta As String = Request.ApplicationPath
            Dim codigo As String = ""
            Dim sUrl As String = Request.Url.Authority()
            sUrl = "http://" + sUrl
            codigo += sUrl & "/Santafe/registro/buscar.aspx?modulo=1&opt=1"
            Response.Redirect(codigo)
        End If

    End Sub
    Protected Sub LBInicializa_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LBInicializa.Click
        Try
            iIdFiltro = Request.QueryString("filtro")
        Catch ex As Exception
            iIdFiltro = 0
        End Try

        If iIdFiltro <> 0 Then

            Dim mContent As ContentPlaceHolder
            mContent = CType(Master.FindControl("MainContent"), ContentPlaceHolder)
            For Each Control In mContent.Controls
                If TypeOf Control Is TextBox Then
                    Control.Text = ""
                ElseIf TypeOf Control Is DropDownList Then
                    Try
                        Control.SelectedValue = ""
                    Catch ex As Exception
                        Control.SelectedIndex = 0
                    End Try

                End If
            Next
            ddlFenotipo.SelectedIndex = 0
            ddlComportamiento.SelectedIndex = 0
            ChkFoto.Checked = False
            RDOBLMuertoVivo.SelectedValue = "N"
            pnActualizado.CssClass = "success"
            lblActualizado.Text = "Filtro Iniciado"
        Else
            pnActualizado.CssClass = "error"
            lblActualizado.Text = "Falta seleccionar el filtro"
        End If
    End Sub
    Protected Sub LBGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LBGuardar.Click
        Guarda()
        pnActualizado.CssClass = "success"
        lblActualizado.Text = "Filtro guardado"
    End Sub
    Sub Guarda()
        Try
            iIdFiltro = Request.QueryString("filtro")
        Catch ex As Exception
            iIdFiltro = 0
        End Try

        If iIdFiltro <> 0 Then

            Session("filtro") = iIdFiltro

            If (Page.IsValid) Then
                ' Response.Write("Numeros Validos")
                filtroDetalle = AdapFiltroDettalle.GetFiltroDetalleById(iIdFiltro)

                ' Identificacion
                otorgarValorDDL(iIdFiltro, ddlHierro, 1, "HIERRO", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlSexo, 1, "SEXO", "Animal") 'OK
                otorgarValorCHK(iIdFiltro, ChkFoto, "PHOTO", "Animal") 'OK
                otorgarValorRDO(iIdFiltro, RDOBLMuertoVivo, "_FECHABAJA", "Animal") 'OK


                otorgarValorTB(iIdFiltro, txtNumero, 1, "NUMERO", "Animal") 'OK
                otorgarValorTB(iIdFiltro, txtLetra, 1, "LETRA", "Animal") 'OK
                otorgarValorTB(iIdFiltro, txtAno, 1, "ANO", "Animal") 'OK
                otorgarValorTB(iIdFiltro, txtNombre, 1, "NOMBRE", "Animal") 'OK
                otorgarValorTB(iIdFiltro, txtNoPadre, 1, "NO_PADRE", "Animal") 'OK
                otorgarValorTB(iIdFiltro, txtLtraPadre, 1, "LTRA_PADRE", "Animal") 'OK
                otorgarValorTB(iIdFiltro, txtAnoPadre, 1, "ANO_PADRE", "Animal") 'OK
                otorgarValorTB(iIdFiltro, txtNoMadre, 1, "NO_MADRE", "Animal") 'OK
                otorgarValorTB(iIdFiltro, txtLtraMadre, 1, "LTRA_MADRE", "Animal") 'OK
                otorgarValorTB(iIdFiltro, txtAnoMadre, 1, "ANO_MADRE", "Animal") 'OK
                otorgarValorTB(iIdFiltro, txtTientaAC, 1, "TIENTA_AC", "Animal") 'OK
                otorgarValorTB(iIdFiltro, txtTientaAP, 1, "TIENTA_AP", "Animal") 'OK
                otorgarValorTB(iIdFiltro, txtLidiaAC, 1, "LIDIA_AC", "Animal") 'OK
                otorgarValorTB(iIdFiltro, txtLidiaAP, 1, "LIDIA_AP", "Animal") 'OK
                otorgarValorTB2(iIdFiltro, txtPorcienCS1, txtPorcienCS2, "PORCIEN_CS", "Animal") 'OK
                otorgarValorTB(iIdFiltro, TxtNoAbueloMat, 1, "NUMABUELO_MAT", "Animal") 'JUNTAR "abuelo_mat"
                otorgarValorTB(iIdFiltro, TxtLtraAbueloMat, 1, "LETRAABUELO_MAT", "Animal") 'JUNTAR "abuelo_mat"
                otorgarValorTB(iIdFiltro, TxtAnoAbueloMaterno, 1, "ANOABUELO_MAT", "Animal") 'JUNTAR "abuelo_mat"
                otorgarValorTB2(iIdFiltro, txtEdad1, txtEdad2, "EDAD", "Animal") 'CALCULAR LOS NACIDOS ENTRE UN PERIODO DE AÑOS 
                otorgarValorTB(iIdFiltro, TBComentario, 1, "/COMETARIO", "Animal")
                otorgarValorTB2(iIdFiltro, txtFechaNac, txtFechaNac2, "FECHANAC", "Animal") ' CHECAR POR PERIODO

                'Generales
                otorgarValorDDL(iIdFiltro, ddlUbicacion, 1, "UBICACION", "animal")
                otorgarValorDDL(iIdFiltro, ddlPropiedad, 1, "PROPIEDAD", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlEncaste, 1, "ENCASTE", "Animal") 'OK
                otorgarValorTB(iIdFiltro, txtRegANCTL, 1, "REG_ANCTL", "Animal")

                'Estatus
                otorgarValorDDL(iIdFiltro, ddlEstatus, 1, "ESTATUS", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlCausaMuerte, 1, "MUERTO", "Animal") 'OK
                otorgarValorTB2(iIdFiltro, txtFechaUbica1, txtFechaUbica2, "FECHAUBICA", "Animal")
                otorgarValorTB2(iIdFiltro, txtFechaMuerte1, txtFechaMuerte2, "FECHAMUERTE", "Animal")
                otorgarValorTB2(iIdFiltro, txtFechaHerradero1, txtFechaHerradero2, "FECHA_HERRADERO", "Animal")
                otorgarValorTB2(iIdFiltro, txtFechaBaja1, txtFechaBaja2, "FECHABAJA", "Animal") 'OK

                'Herencia
                otorgarValorTB(iIdFiltro, TxtBADN, 1, "ADN", "Animal")
                otorgarValorDDL(iIdFiltro, ddlFenotipo, 1, "FENOTIPO", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlComportamiento, 1, "COMPORTAMIENTO", "Animal") 'OK

                'Morfologia
                otorgarValorDDL(iIdFiltro, ddlPelaje1, 1, "PELAJE1", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlPelaje2, 1, "PELAJE2", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlPelaje3, 1, "PELAJE3", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlPelaje4, 1, "PELAJE4", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlLongitud, 1, "PITON_LONG", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlSimetria, 1, "PITON_SIME", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlPuntas, 1, "PITON_PUNTA", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlFormas, 1, "PITON_FORMA", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlTamaño, 1, "HEC_TAMAÑO", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlHLongitud, 1, "HEC_LONGITUD", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlAltura, 1, "HEC_ALTURA", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlAgujas, 1, "HEC_AGUJAS", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlAnchura, 1, "HEC_ANCHURA", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlLomo, 1, "HEC_LOMO", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlCuello, 1, "HEC_CUELLO", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlCzaTam, 1, "HEC_CABEZA_TAM", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlCzaTipo, 1, "HEC_CABEZA_TIP", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlConjunto, 1, "HEC_CONJUNTO", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlTrapio, 1, "HEC_TRAPIO", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlMorrillo, 1, "HEC_MORRILLO", "Animal") 'OK

                'Tienta
                otorgarValorTB2(iIdFiltro, txtFechaTienta1, txtFechaTienta2, "TIENTA_FECHA", "Animal") ' Animal
                otorgarValorDDL(iIdFiltro, ddlTorero, 1, "TIENTA_TORERO", "Animal") 'OK
                otorgarValorDDL(iIdFiltro, ddlPicador, 1, "TIENTA_PICADOR", "Animal")
                otorgarValorDDL(iIdFiltro, ddPlaza, 1, "TIENTA_PLAZA", "Animal")
                otorgarValorDDL(iIdFiltro, DropDLTientaEmotivaCab, 1, "TIENTA_AC", "Animal")
                otorgarValorDDL(iIdFiltro, DropDLTientaEmotivaPie, 1, "TIENTA_AP", "Animal")
                otorgarValorDDL(iIdFiltro, DropDLTientaCalculadaCab, 1, "TIENTA_ACCAL", "Animal")
                otorgarValorDDL(iIdFiltro, DropDLTientaCalculadaPie, 1, "TIENTA_APCAL", "Animal")

                ''otorgarValorTB(iIdFiltro, TxtEmotivaTC, 1, "TIENTA_AC", "Animal")
                ''otorgarValorTB(iIdFiltro, TxtEmotivaTP, 1, "TIENTA_AP", "Animal")
                'Tienta a caballo
                otorgarValorDDL(iIdFiltro, ddlTaCRegresa, 1, "REGRESA", "TientaCaballo") ' TientaCaballo
                otorgarValorDDL(iIdFiltro, ddlTaCDistancia, 1, "DISTANCIA", "TientaCaballo") ' TientaCaballo
                otorgarValorDDL(iIdFiltro, ddlTaCSitio, 1, "SITIO", "TientaCaballo") ' TientaCaballo
                otorgarValorDDL(iIdFiltro, ddlTaCAprieta, 1, "APRIETA", "TientaCaballo") ' TientaCaballo

                otorgarValorDDL(iIdFiltro, ddlTaCFijeza, 1, "FIJEZA", "TientaCaballo") ' TientaCaballo "Duplicada"
                otorgarValorDDL(iIdFiltro, ddlTaCCabeza, 1, "CABEZA", "TientaCaballo") ' TientaCaballo
                otorgarValorDDL(iIdFiltro, ddlTaCDefiende, 1, "DEFIENDE", "TientaCaballo") ' TientaCaballo
                otorgarValorDDL(iIdFiltro, ddlTaCTomoVara, 1, "VARA", "TientaCaballo") ' TientaCaballo
                'Tienta a pie
                otorgarValorDDL(iIdFiltro, DDLTientaClase, 1, "CLASE", "Animal") ' Animal  
                otorgarValorDDL(iIdFiltro, DDLTientaNobleza, 1, "NOBLEZA", "Animal") ' Animal
                otorgarValorDDL(iIdFiltro, DDLTientaRaza, 1, "RAZA", "Animal") ' Animal
                otorgarValorDDL(iIdFiltro, DDLTientaEmotividad, 1, "EMOTIVIDAD", "Animal") ' Animal

                otorgarValorDDL(iIdFiltro, ddlTaPEmotividad, 1, "EMOTIVIDAD", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPFijeza, 1, "FIJEZA", "TientaPie") ' TientaPie "Duplicada"
                otorgarValorDDL(iIdFiltro, ddlTaPRemata, 1, "REMATA", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPDesarrollo, 1, "DESARROLLO", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPDistancia, 1, "DISTANCIA", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPProntitud, 1, "PRONTITUD", "TientaPie") ' TientaPie 
                otorgarValorDDL(iIdFiltro, ddlTaPFuerza, 1, "FUERZA", "TientaPie") ' TientaPie 
                otorgarValorDDL(iIdFiltro, ddlTaPEnrazado, 1, "ENRAZADO", "TientaPie") 'TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPFiereza, 1, "FIREZA", "TientaPie") ' TientaPie 
                otorgarValorDDL(iIdFiltro, ddlTaPGalope, 1, "GALOPE", "TientaPie") ' TientaPie 
                otorgarValorDDL(iIdFiltro, ddlmAlegria, 1, "ALEGRIA", "TientaPie") ' TientaPie 
                otorgarValorDDL(iIdFiltro, ddlmObediente, 1, "OBEDIENTE", "TientaPie") ' TientaPie 
                otorgarValorDDL(iIdFiltro, ddlmGazapea, 1, "GAZAPEA", "TientaPie") ' TientaPie 
                otorgarValorDDL(iIdFiltro, ddlTaPEscarba, 1, "ESCARBA", "TientaPie") ' TientaPie 
                otorgarValorDDL(iIdFiltro, ddlTaPQuerencia, 1, "QUERENCIA", "TientaPie") ' TientaPie 
                otorgarValorDDL(iIdFiltro, ddlTaPBerrea, 1, "BERREA", "TientaPie") ' TientaPie 
                'Tienta engaños
                otorgarValorDDL(iIdFiltro, ddlTaPRectitud_D, 1, "RECTITUD_DER", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPRectitud_I, 1, "RECTITUD_IZQ", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPRepite_D, 1, "REPITE_DER", "TientaPie") ' TientaPie 
                otorgarValorDDL(iIdFiltro, ddlTaPRepite_I, 1, "REPITE_IZQ", "TientaPie") ' TientaPie 
                otorgarValorDDL(iIdFiltro, ddlTaPNobleza_D, 1, "NOBLEZA_DER", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPNobleza_I, 1, "NOBLEZA_IZQ", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPSon_D, 1, "SON_DER", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPSon_I, 1, "SON_IZQ", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPRepone_D, 1, "REPONE_DER", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPRepone_I, 1, "REPONE_IZQ", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPCabeza_D, 1, "PCABEZA_D", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPCabeza_I, 1, "PCABEZA_I", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPMano_D, 1, "PMANOS_D", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPMano_I, 1, "PMANOS_I", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPRecorrido2_D, 1, "PRECORRIDO_D", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPRecorrido2_I, 1, "PRECORRIDO_I", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPFinalizacion_D, 1, "PFINALIZACION_D", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPFinalizacion_I, 1, "PFINALIZACION_I", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPBajaCabeza, 1, "BAJACABEZA", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPRajado, 1, "RAJADO", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPPases, 1, "PASES", "TientaPie") ' TientaPie
                otorgarValorDDL(iIdFiltro, ddlTaPCabezas, 1, "CABEZA", "TientaPie") 'TientaPie

                'Lidia
                otorgarValorTB2(iIdFiltro, TxtFechaLidia1, TxtFechaLidia2, "LIDIA_FECHA", "Animal") ' Animal
                otorgarValorDDL(iIdFiltro, DropDLLidiaEmotivaCab, 1, "LIDIA_AC", "Animal")
                otorgarValorDDL(iIdFiltro, DropDLLidiaEmotivaPie, 1, "LIDIA_AP", "Animal")
                otorgarValorDDL(iIdFiltro, DropDLLidiaCalculadaCab, 1, "LIDIA_ACCAL", "Animal")
                otorgarValorDDL(iIdFiltro, DropDLLidiaCalculadaPie, 1, "LIDIA_APCAL", "Animal")
                otorgarValorTB2(iIdFiltro, TxtPeso1, TxtPeso2, "LIDIA_PESO", "Animal") ' Animal
                otorgarValorTB2(iIdFiltro, txtPrecio1, txtPrecio2, "LIDIA_PRECIO", "Animal") ' Animal

                ''otorgarValorTB(iIdFiltro, TxtLaCEmotividad, 1, "LIDIA_AC", "Animal")
                ''otorgarValorTB(iIdFiltro, TxtLaPEmotividad, 1, "LIDIA_AP", "Animal")
                otorgarValorDDL(iIdFiltro, ddlPlaza, 1, "LIDIA_PLAZA", "Animal")
                otorgarValorTB(iIdFiltro, TBSobreNombre, 1, "LIDIA_NOMBRE", "Animal")

                otorgarValorTB(iIdFiltro, txtLugarLidia, 1, "LIDIA_LUGAR", "Animal")
                ''otorgarValorTB(iIdFiltro, TxtPeso, 1, "LIDIA_PESO", "Animal")
                otorgarValorDDL(iIdFiltro, ddlResultado, 1, "LIDIA_RESULTADO", "Animal")
                otorgarValorDDL(iIdFiltro, ddlMatador, 1, "LIDIA_MATADOR", "Animal")
                otorgarValorDDL(iIdFiltro, ddlTrofeos, 1, "LIDIA_TROFEOS", "Animal")
                otorgarValorDDL(iIdFiltro, ddlReconocimiento, 1, "LIDIA_REC_GAN", "Animal")
                ''otorgarValorTB(iIdFiltro, txtPrecio, 1, "LIDIA_PRECIO", "Animal")
                'Lidia a caballo
                otorgarValorDDL(iIdFiltro, ddlLaCRegresa, 1, "REGRESA", "LidiaCaballo")
                otorgarValorDDL(iIdFiltro, ddlLaCDistancia, 1, "DISTANCIA", "LidiaCaballo")
                otorgarValorDDL(iIdFiltro, ddlLaCSitio, 1, "SITIO", "LidiaCaballo")
                otorgarValorDDL(iIdFiltro, ddlLaCAprieta, 1, "APRIETA", "LidiaCaballo")


                otorgarValorDDL(iIdFiltro, ddlLaCFijeza, 1, "FIJEZA", "LidiaCaballo") ' Duplicada
                otorgarValorDDL(iIdFiltro, ddlLaCCabeza, 1, "CABEZA", "LidiaCaballo")
                otorgarValorDDL(iIdFiltro, ddlLaCDefine, 1, "DEFINE", "LidiaCaballo")
                otorgarValorDDL(iIdFiltro, ddlLaCTomoVara, 1, "VARA", "LidiaCaballo")
                'Lidia a pie
                otorgarValorDDL(iIdFiltro, DDLLidiaClase, 1, "LIDIA_CLASE", "Animal") ' Animal  
                otorgarValorDDL(iIdFiltro, DDLLidiaNobleza, 1, "LIDIA_NOBLEZA", "Animal") ' Animal
                otorgarValorDDL(iIdFiltro, DDLLidiaRaza, 1, "LIDIA_RAZA", "Animal") ' Animal
                otorgarValorDDL(iIdFiltro, DDLLidiaEmotividad, 1, "LIDIA_EMOTIVIDAD", "Animal") ' Animal

                otorgarValorDDL(iIdFiltro, ddlLaPEmotividad, 1, "EMOTIVIDAD", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPFijeza, 1, "FIJEZA", "LidiaPie") ' Duplicada


                otorgarValorDDL(iIdFiltro, ddlLaPRemate, 1, "REMATE", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPDesarrollo, 1, "DESARROLLO", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPDistancia, 1, "DISTANCIA", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPProntitud, 1, "PRONTITUD", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPFuerza, 1, "FUERZA", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPEnrazado, 1, "ENRAZADO", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPFiereza, 1, "FIREZA", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPGalope, 1, "GALOPE", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPAlegria, 1, "ALEGRIA", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPObediencia, 1, "OBEDIENCIA", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPGazapea, 1, "GAZAPEA", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPEscarba, 1, "ESCARBA", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPQuerencia, 1, "QUERENCIA", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPBerrea, 1, "BERREA", "LidiaPie")
                'Lidia engaños
                otorgarValorDDL(iIdFiltro, ddlLaPRectitud_D, 1, "RECTITUD_DER", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPRectitud_I, 1, "RECTITUD_IZQ", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPRepite_D, 1, "REPITE_DER", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPRepite_I, 1, "REPITE_IZQ", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPNobleza_D, 1, "NOBLEZA_DER", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPNobleza_I, 1, "NOBLEZA_IZQ", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPSon_D, 1, "SON_DER", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPSon_I, 1, "SON_IZQ", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPRepone_D, 1, "REPONE_DER", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPRepone_I, 1, "REPONE_IZQ", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPCabeza_D, 1, "PCABEZA_D", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPCabeza_I, 1, "PCABEZA_I", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPManos_D, 1, "PMANOS_D", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPManos_I, 1, "PMANOS_I", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPRecorrido_D, 1, "RECORRIDO_DER", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPRecorrido_I, 1, "RECORRIDO_IZQ", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPFinalizacion_D, 1, "PFINALIZACION_D", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPFinalizacion_I, 1, "PFINALIZACION_I", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPBajaCabeza, 1, "BAJACABEZA", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPRajado, 1, "RAJADO", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPases, 1, "PASES", "LidiaPie")
                otorgarValorDDL(iIdFiltro, ddlLaPCaveza, 1, "CABEZA", "LidiaPie")

                'Empadre
                otorgarValorTB(iIdFiltro, TxtVEmpNumero, 1, "VEMPNUMERO", "empadre") ' JUNTAR "toro"
                otorgarValorTB(iIdFiltro, TxtVEmpLtra, 1, "VEMPLETRA", "empadre") ' JUNTAR "toro"
                otorgarValorTB(iIdFiltro, TxtVEmpAno, 1, "VEMPANO", "empadre") ' JUNTAR "toro"
                otorgarValorTB(iIdFiltro, TxtFechaEmp1, 1, "FECHAINI", "empadre") 'OK
                otorgarValorTB(iIdFiltro, TxtFechaEmp2, 1, "FECHAFIN", "empadre") 'OK
                otorgarValorDDL(iIdFiltro, ddlUbicacionEmpadres, 1, "UBICACION", "empadre") 'OK
                otorgarValorTB(iIdFiltro, TxtVEmpadres, 1, "VEMPADRES", "empadre") ' CALCULADO
                otorgarValorTB(iIdFiltro, TxtVNoParieron, 1, "VNoPARIERON", "empadre") ' CALCULADO
                'Sanidad
                otorgarValorTB2(iIdFiltro, TextFechaSanidadIni1, TextFechaSanidadIni2, "FECHA", "Sanidad")
                otorgarValorDDL(iIdFiltro, ddlTiposSanidad, 1, "TIPOSANIDAD", "Sanidad")
                otorgarValorTB(iIdFiltro, TBProducto, 1, "PRODUCTO", "Sanidad")
                pnActualizado.CssClass = "success"
                lblActualizado.Text = "Filtro aplicado"
            End If
        Else
            pnActualizado.CssClass = "error"
            lblActualizado.Text = "Falta seleccionar filtro"
        End If
    End Sub
End Class
